home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / vsllib / DEMOS / bigflow < prev    next >
Encoding:
Text File  |  1995-05-01  |  1.5 KB  |  67 lines
  1. #!vsl
  2.  
  3. // $Id: bigflow,v 1.1.1.1 1995/05/01 15:48:48 zeller Exp $
  4. // Grosser Tester Flowcharts
  5.  
  6. // $Log: bigflow,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:48  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.4  1993/06/25  12:03:48  zeller
  11. // Fix: Kommentare Log-Datei angepasst
  12. //
  13. // Revision 9.3  1993/05/22  20:22:22  zeller
  14. // %Q% added by apply-q-flag.sh 1.5
  15. //
  16. // Revision 9.2  1993/01/27  15:44:35  zeller
  17. // Fix: head() eingefuegt
  18. // 
  19. // Revision 9.1  1991/07/08  06:01:01  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 8.1  1991/07/06  15:04:06  zeller
  23. // Installierte Version
  24. // 
  25. // Revision 4.1  1991/05/25  12:53:41  zeller
  26. // Neue Version mit folgenden Eigenschaften:
  27. // Let- und Where-Konstrukten;
  28. // Lokalen und globalen Funktionen, Overloading;
  29. // Erweiterten Fehlermeldungen.
  30. // 
  31. // Revision 1.2  1991/05/08  11:51:13  zeller
  32. // labelFlow() durch ovalFlow() ersetzt
  33. // 
  34. // Revision 1.1  1991/05/06  10:27:08  zeller
  35. // Initial revision
  36. // 
  37.  
  38. #include <flow.vsl>
  39. #include <list.vsl>
  40.  
  41. test() -> 
  42.   seqFlow(ovalFlow("BEGIN"),
  43.  
  44.   positiveTopLoopFlow("not empty",
  45.  
  46.   negativeBottomLoopFlow("fertig?",
  47.  
  48.   positiveBottomLoopFlow("not fertig?",
  49.  
  50.   negativeTopLoopFlow("done",
  51.  
  52.   testFlow("a = c?", 
  53.     testFlow("a = b?", 
  54.       seqFlow(
  55.       printFlow("writeln('abc')"), 
  56.       punchFlow("readln(x)"), 
  57.       statFlow("a := 1")), 
  58.     seqFlow(statFlow("Forget it"), statFlow("Oh Yeah"), statFlow("Oh Yeah"))))
  59.     
  60.   )))),
  61.  
  62.   ovalFlow("END"));
  63.  
  64. test2() -> negativeBottomLoopFlow("a = b?", statFlow("writeln('hello, joe')"));
  65.  
  66. main() -> head(test());
  67.